home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 3 / Info_Mac_1994-01.iso / Science / proFit FPU 4.1.2 Demo / proFit II Demo (FPU) / proFit II Demo (FPU).rsrc / TEXT_129_embedded dict.txt < prev    next >
Text File  |  1993-08-13  |  833b  |  20 lines
  1. /proFitdict 40 dict def proFitdict begin
  2. /killbu {//md /bu get //md /bu {} put}def
  3. /restorebu {//md exch /bu exch put}def
  4. /killbn {//md /bn get //md /bn {} put}def
  5. /restorebn {//md exch /bn exch put}def
  6. /Pbd {bind def}def
  7. /Pm {moveto}def /Prm {rmoveto} def /Pl {lineto}def
  8. /Ps {gsave}def /Pr {grestore}def
  9. /Pt {stroke}def 
  10. /Pw {setlinewidth}def /Pc {setrgbcolor}def /Pg {setgray}def
  11. /Po0 {3 -1 roll exch 2 mul add 3 div 3 1 roll 2 mul add 3 div exch}Pbd
  12. /Po1 {4 copy 10 2 roll Po0 8 2 roll Po0 6 2 roll curveto}Pbd
  13. /Po2 {4 copy 3 -1 roll add 2 div 3 1 roll add 2 div exch 2 copy
  14. 6 -2 roll 10 4 roll Po1}Pbd
  15. /Pcol1 {1 exch sub 4 -1 roll mul 1 exch sub 3 1 roll}Pbd
  16. /Pcol {1 exch sub dup dup currentrgbcolor Pcol1 Pcol1 Pcol1 setrgbcolor}Pbd
  17. /Pshow {dup dup stringwidth pop 4 -1 roll exch sub exch length div 0 3
  18. -1 roll ashow}Pbd
  19. end
  20.